﻿Module Module1
  Sub Main()

    Dim nl As String = Environment.NewLine
    Dim testo As String = _
        "Questo è il nuovo libro su VB " & _
        "che riguarda la programmazione con VB 2010"
    Dim stringaCercata As String = "VB"
    Console.WriteLine("prima posizione = " & _
        testo.IndexOf(stringaCercata) & nl & _
        "ultima posizione = " & _
        testo.LastIndexOf(stringaCercata))
    Console.ReadLine()

  End Sub
End Module
